home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS in a Box 7
/
BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso
/
Files
/
Hyper
/
Me-Mz
/
Myers-Briggs.cpt
/
Meyers-Briggs Personality Test
/
background_2652.txt
< prev
next >
Wrap
Text File
|
1990-12-02
|
6KB
|
273 lines
-- background: 2652 from stack: in
-- bmap block id: 26768
-- flags: 0000
-- background id: 0
-- name: File Card
-- part 6 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=251 top=239 right=266 bottom=282
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
go to prev card
end mouseUp
-- part 7 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=286 top=239 right=266 bottom=317
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
go to next card
end mouseUp
-- part 30 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=101 top=166 right=200 bottom=450
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: Ans1
----- HyperTalk script -----
on mouseUp
global Enum, Inum, Snum, Nnum, Tnum, Fnum, Pnum, Jnum
if bkgnd field "A1" = "e" then add bkgnd field "P1" to Enum
if bkgnd field "A1" = "i" then add bkgnd field "P1" to Inum
if bkgnd field "A1" = "s" then add bkgnd field "P1" to Snum
if bkgnd field "A1" = "n" then add bkgnd field "P1" to Nnum
if bkgnd field "A1" = "t" then add bkgnd field "P1" to Tnum
if bkgnd field "A1" = "f" then add bkgnd field "P1" to Fnum
if bkgnd field "A1" = "p" then add bkgnd field "P1" to Pnum
if bkgnd field "A1" = "j" then add bkgnd field "P1" to Jnum
if bkgnd field 4 < 50 then
visual effect scroll right
go to next card
else
visual effect scroll right
go to card "Summary"
end if
end mouseUp
-- part 11 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=96 top=76 right=135 bottom=442
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: Question
----- HyperTalk script -----
on mouseUp
Ask "Why are you clicking on the question? with "Sorry" or "Just Kidden"
end mouseUp
-- part 36 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=18 top=67 right=127 bottom=77
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quit
----- HyperTalk script -----
on mouseUp
answer "Are you sure you want to leave?" with "I Sure Do" or "No"
if it is "I Sure Do" then
visual effect iris close
go "Home"
end if
end mouseUp
-- part 41 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=19 top=179 right=237 bottom=78
-- title width / last selected line: 0
-- icon id / first selected line: 32462 / 32462
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
push card
go to card "Help"
end mouseUp
-- part 43 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=100 top=204 right=239 bottom=449
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: Ans2
----- HyperTalk script -----
on mouseUp
global Enum, Inum, Snum, Nnum, Tnum, Fnum, Pnum, Jnum
if bkgnd field "A2" = "e" then add bkgnd field "P2" to Enum
if bkgnd field "A2" = "i" then add bkgnd field "P2" to Inum
if bkgnd field "A2" = "s" then add bkgnd field "P2" to Snum
if bkgnd field "A2" = "n" then add bkgnd field "P2" to Nnum
if bkgnd field "A2" = "t" then add bkgnd field "P2" to Tnum
if bkgnd field "A2" = "f" then add bkgnd field "P2" to Fnum
if bkgnd field "A2" = "p" then add bkgnd field "P2" to Pnum
if bkgnd field "A2" = "j" then add bkgnd field "P2" to Jnum
if bkgnd field 4 < 50 then
visual effect scroll right
go to next card
else
visual effect scroll right
go to card "Summary"
end if
end mouseUp
-- part 44 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=391 top=61 right=74 bottom=408
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:
-- part 45 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=427 top=61 right=74 bottom=444
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:
-- part 46 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=454 top=164 right=181 bottom=466
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: A1
-- part 47 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=454 top=183 right=200 bottom=466
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: P1
-- part 48 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=455 top=203 right=220 bottom=467
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: A2
-- part 49 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=455 top=222 right=239 bottom=467
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: P2
-- part 61 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=453 top=142 right=159 bottom=465
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: Choice